Define CharList
 ( 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P',
   'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z', 'a', 'b', 'c', 'd', 'e', 'f',
   'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v',
   'w', 'x', 'y', 'z', '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '~', '`',
   '!', '@', '#', '$', '%', '^', '&', '*', '(', ')', '-', '_', '=', '+', '[', '{',
   ']', '}', ';', ':',"'", '"', ',', '<', '.', '>', '/', '?', '', '', '', '',
   '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '',
   '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '',
   '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '',
   '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '');

Define WidthList
 (  21,  22,  20,  24,  20,  19,  23,  22,  11,  13,  22,  18,  27,  20,  23,  21,
    24,  22,  17,  19,  20,  21,  27,  20,  19,  19,  21,  22,  20,  24,  20,  19,
    23,  22,  11,  13,  22,  19,  27,  20,  23,  21,  24,  22,  17,  19,  20,  21,
    27,  20,  19,  19,  24,  10,  19,  18,  23,  17,  20,  19,  20,  20,  14,  12,
    12,  25,  22,  16,  35,  16,  26,  21,  14,  15,  14,  20,  15,  19,   9,  10,
     9,  10,  12,  10,  12,  14,  11,  13,  10,  13,  24,  15,  12,  14,  21,  20,
    18,  25,  25,  15,  21,  21,  21,  21,  21,  21,  31,  20,  21,  21,  21,  21,
    12,  12,  13,  11,  27,  19,  24,  23,  24,  23,  23,  25,  21,  20,  21,  20,
    19,  20,  21,  21,  21,  21,  21,  21,  31,  20,  21,  20,  21,  21,  11,  11,
    11,  11,  23,  20,  24,  23,  24,  24,  23,  25,  21,  20,  21,  20,  19,  20);

Define RectList
 ( (   0,  0, 30, 34), (  31,  0, 30, 34), (  62,  0, 28, 34), (  91,  0, 32, 34),
   ( 124,  0, 28, 34), ( 153,  0, 26, 34), ( 180,  0, 30, 34), ( 211,  0, 30, 34),
   ( 242,  0, 17, 34), ( 260,  0, 21, 34), ( 282,  0, 31, 34), ( 314,  0, 27, 34),
   ( 342,  0, 35, 34), ( 378,  0, 27, 34), ( 406,  0, 31, 34), ( 438,  0, 29, 34),
   ( 468,  0, 32, 34), ( 501,  0, 32, 34), ( 534,  0, 26, 34), ( 561,  0, 29, 34),
   ( 591,  0, 28, 34), ( 620,  0, 30, 34), ( 651,  0, 36, 34), ( 688,  0, 28, 34),
   ( 717,  0, 27, 34), ( 745,  0, 27, 34), ( 773,  0, 30, 34), ( 804,  0, 30, 34),
   ( 835,  0, 28, 34), ( 864,  0, 32, 34), ( 897,  0, 28, 34), ( 926,  0, 26, 34),
   ( 953,  0, 30, 34), ( 984,  0, 30, 34), (1015,  0, 17, 34), (1033,  0, 21, 34),
   (1055,  0, 31, 34), (1087,  0, 27, 34), (1115,  0, 35, 34), (1151,  0, 27, 34),
   (1179,  0, 31, 34), (1211,  0, 29, 34), (1241,  0, 32, 34), (1274,  0, 32, 34),
   (1307,  0, 26, 34), (1334,  0, 29, 34), (1364,  0, 28, 34), (1393,  0, 30, 34),
   (1424,  0, 36, 34), (1461,  0, 28, 34), (1490,  0, 27, 34), (1518,  0, 27, 34),
   (1546,  0, 31, 34), (1578,  0, 18, 34), (1597,  0, 27, 34), (1625,  0, 26, 34),
   (1652,  0, 31, 34), (1684,  0, 25, 34), (1710,  0, 27, 34), (1738,  0, 26, 34),
   (1765,  0, 27, 34), (1793,  0, 28, 34), (1822,  0, 22, 34), (1845,  0, 20, 34),
   (1866,  0, 20, 34), (1887,  0, 33, 34), (1921,  0, 30, 34), (1952,  0, 25, 34),
   (1978,  0, 41, 34), (2020,  0, 24, 34), (2045,  0, 34, 34), (2080,  0, 29, 34),
   (2110,  0, 22, 34), (2133,  0, 23, 34), (2157,  0, 21, 34), (2179,  0, 31, 34),
   (2211,  0, 22, 34), (2234,  0, 27, 34), (2262,  0, 16, 34), (2279,  0, 18, 34),
   (2298,  0, 17, 34), (2316,  0, 18, 34), (2335,  0, 20, 34), (2356,  0, 17, 34),
   (2374,  0, 19, 34), (2394,  0, 22, 34), (2417,  0, 18, 34), (2436,  0, 21, 34),
   (2458,  0, 17, 34), (2476,  0, 21, 34), (2498,  0, 31, 34), (2530,  0, 24, 34),
   (2555,  0, 20, 34), (2576,  0, 22, 34), (2599,  0, 28, 34), (2628,  0, 27, 34),
   (2656,  0, 25, 34), (2682,  0, 32, 34), (2715,  0, 33, 34), (2749,  0, 23, 34),
   (2773,  0, 30, 34), (2804,  0, 30, 34), (2835,  0, 30, 34), (2866,  0, 30, 34),
   (2897,  0, 31, 34), (2929,  0, 31, 34), (2961,  0, 39, 34), (3001,  0, 27, 34),
   (3029,  0, 28, 34), (3058,  0, 28, 34), (3087,  0, 28, 34), (3116,  0, 28, 34),
   (3145,  0, 17, 34), (3163,  0, 17, 34), (3181,  0, 17, 34), (3199,  0, 17, 34),
   (3217,  0, 46, 34), (3264,  0, 27, 34), (3292,  0, 31, 34), (3324,  0, 31, 34),
   (3356,  0, 31, 34), (3388,  0, 31, 34), (3420,  0, 31, 34), (3452,  0, 33, 34),
   (3486,  0, 28, 34), (3515,  0, 28, 34), (3544,  0, 28, 34), (3573,  0, 28, 34),
   (3602,  0, 27, 34), (3630,  0, 28, 34), (3659,  0, 30, 34), (3690,  0, 30, 34),
   (3721,  0, 30, 34), (3752,  0, 30, 34), (3783,  0, 31, 34), (3815,  0, 31, 34),
   (3847,  0, 39, 34), (3887,  0, 28, 34), (3916,  0, 28, 34), (3945,  0, 28, 34),
   (3974,  0, 28, 34), (4003,  0, 28, 34), (4032,  0, 17, 34), (4050,  0, 17, 34),
   (4068,  0, 17, 34), (4086,  0, 17, 34), (4104,  0, 39, 34), (4144,  0, 27, 34),
   (4172,  0, 31, 34), (4204,  0, 31, 34), (4236,  0, 31, 34), (4268,  0, 31, 34),
   (4300,  0, 31, 34), (4332,  0, 33, 34), (4366,  0, 28, 34), (4395,  0, 28, 34),
   (4424,  0, 28, 34), (4453,  0, 28, 34), (4482,  0, 27, 34), (4510,  0, 28, 34));

Define OffsetList
 ( (-5, 0), (-4, 0), (-4, 0), (-4, 0), (-4, 0), (-4, 0), (-3, 0), (-4, 0),
   (-3, 0), (-4, 0), (-4, 0), (-4, 0), (-4, 0), (-4, 0), (-4, 0), (-4, 0),
   (-4, 0), (-5, 0), (-5, 0), (-5, 0), (-4, 0), (-5, 0), (-5, 0), (-4, 0),
   (-4, 0), (-4, 0), (-5, 0), (-4, 0), (-4, 0), (-4, 0), (-4, 0), (-4, 0),
   (-3, 0), (-4, 0), (-3, 0), (-4, 0), (-4, 0), (-4, 0), (-4, 0), (-4, 0),
   (-4, 0), (-4, 0), (-4, 0), (-5, 0), (-5, 0), (-5, 0), (-4, 0), (-5, 0),
   (-5, 0), (-4, 0), (-4, 0), (-4, 0), (-3, 0), (-4, 0), (-4, 0), (-4, 0),
   (-4, 0), (-4, 0), (-4, 0), (-3, 0), (-3, 0), (-4, 0), (-4, 0), (-4, 0),
   (-4, 0), (-4, 0), (-4, 0), (-4, 0), (-3, 0), (-4, 0), (-4, 0), (-4, 0),
   (-4, 0), (-4, 0), (-4, 0), (-5, 0), (-4, 0), (-4, 0), (-3, 0), (-4, 0),
   (-4, 0), (-4, 0), (-4, 0), (-4, 0), (-4, 0), (-4, 0), (-3, 0), (-4, 0),
   (-4, 0), (-4, 0), (-4, 0), (-5, 0), (-4, 0), (-4, 0), (-3, 0), (-3, 0),
   (-4, 0), (-3, 0), (-4, 0), (-4, 0), (-5, 0), (-5, 0), (-5, 0), (-5, 0),
   (-5, 0), (-5, 0), (-4, 0), (-4, 0), (-4, 0), (-4, 0), (-4, 0), (-4, 0),
   (-3, 0), (-3, 0), (-3, 0), (-3, 0), (-10, 0), (-4, 0), (-4, 0), (-4, 0),
   (-4, 0), (-4, 0), (-4, 0), (-5, 0), (-4, 0), (-4, 0), (-4, 0), (-4, 0),
   (-4, 0), (-4, 0), (-5, 0), (-5, 0), (-5, 0), (-5, 0), (-5, 0), (-5, 0),
   (-4, 0), (-4, 0), (-4, 0), (-4, 0), (-4, 0), (-4, 0), (-3, 0), (-3, 0),
   (-3, 0), (-3, 0), (-8, 0), (-4, 0), (-4, 0), (-4, 0), (-4, 0), (-4, 0),
   (-4, 0), (-5, 0), (-4, 0), (-4, 0), (-4, 0), (-4, 0), (-4, 0), (-5, 0));

Define KerningPairs
 ("\"A","\"a","A\"","A'","AT","AV","AW","AY","At","Av","Aw","Ay","EW","EY","Ew","Ey",
  "F,","F.","FA","FL","Fa","Fl","K-","KO","Ko","L'","LT","LV","LW","LY","Ly","P,",
  "P.","PA","Pa","RC","RG","RO","RQ","RT","RV","RW","RY","Rc","Rg","Ro","Rq","Ry",
  "T,","T-","T.","T:","T;","TA","TC","TH","TL","TO","TS","Ta","Tc","Th","Tl","To",
  "Ts","V,","V-","V.","V:","V;","VA","VC","VO","Va","Vc","Vo","W,","W-","W.","W:",
  "W;","WA","WC","WO","Wa","Wc","Wo","Y,","Y-","Y.","Y:","Y;","YA","YC","YO","YQ",
  "Ya","Yc","Yo","Yq","a\"","a'","at","av","aw","ay","ew","ey","f,","f.","fa","fl",
  "k-","ko","l'","lt","lv","lw","ly","p,","p.","pa","rc","rg","ro","rt","rv","rw",
  "ry","t,","t-","t.","t:","t;","ta","tc","th","tl","to","ts","v,","v-","v.","v:",
  "v;","va","vc","vo","w,","w-","w.","w:","w;","wa","wc","wo","y,","y-","y.","y:",
  "y;","yO","ya","yc","yo","yq");

Define KerningValues

 (  -3,  -3,  -2,  -1,  -2,  -1,  -1,  -1,  -2,  -1,  -1,  -1,   1,   1,   1,   1,

    -4,  -4,  -3,  -2,  -3,  -2,  -2,  -1,  -1,  -2,  -3,  -2,  -2,  -2,  -2,  -6,

    -5,  -3,  -3,  -2,  -1,  -1,  -1,  -1,  -1,  -2,  -2,  -2,  -1,  -1,  -1,  -2,

    -4,  -3,  -3,  -3,  -4,  -4,  -2,  -2,  -1,  -2,  -3,  -4,  -2,  -1,  -1,  -2,

    -3,  -4,  -2,  -3,  -2,  -3,  -4,  -2,  -2,  -4,  -2,  -2,  -4,  -1,  -4,  -1,

    -3,  -3,  -1,  -1,  -3,  -1,  -1,  -4,  -2,  -4,  -2,  -4,  -4,  -1,  -1,  -1,

    -4,  -1,  -2,  -1,  -2,  -1,  -2,  -1,  -1,  -1,   1,   1,  -4,  -4,  -3,  -2,

    -2,  -1,  -2,  -3,  -2,  -2,  -2,  -6,  -5,  -3,  -2,  -1,  -1,  -1,  -1,  -2,

    -2,  -5,  -3,  -3,  -3,  -4,  -4,  -2,  -1,  -1,  -2,  -3,  -4,  -2,  -3,  -2,

    -3,  -4,  -2,  -2,  -4,  -1,  -4,  -1,  -3,  -3,  -1,  -1,  -4,  -2,  -4,  -2,

    -4,  -1,  -4,  -1,  -1,  -1);

CreateLayer               Main;
LayerSetImage             Main 'Cancun22';
LayerSetAscent            Main 27;
LayerSetCharWidths        Main CharList WidthList;
LayerSetCharWidths        Main (' ') (9);
LayerSetKerningPairs      Main KerningPairs KerningValues;
LayerSetImageMap          Main CharList RectList;
LayerSetCharOffsets       Main CharList OffsetList;
LayerSetAscentPadding     Main 5;
LayerSetLineSpacingOffset Main 0;
LayerSetPointSize         Main 22;

SetDefaultPointSize  22;
